﻿Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports DotNetNuke
Imports DotNetNuke.UI.UserControls
Imports DotNetNuke.UI
Imports NVPortal.Modules.NVNews
Partial Class DesktopModules_NV_News_Display_News_Detail_Comment_Add
    Inherits System.Web.UI.Page
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            If Not IsPostBack Then
            End If
            
        Catch ex As Exception
            'Me.imgNews.Visible = False
            ' Exception
            ProcessModuleLoadException(Me, ex)
        End Try
    End Sub
    Protected Sub ibtSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ibtSend.Click
        If Request.Item("tin") Then
            Dim ctlNewsFeedBack As New NV_NewsFeedbackController
            ctlNewsFeedBack.Insert(Request.Item("tin"), Me.txtFullname.Text, Me.txtEmail.Text, Date.Now, "", Me.txtContent.Text, "", 0)
            Me.lbResult.Text = "Cảm ơn bạn đã gửi bình luận!<Br />Thông điệp của bạn đã được gửi đến Quản trị."
            'Response.Redirect(Request.RawUrl, True)
            'Response.Redirect("http://dongvatcanh.vn/noidung/362/mien-man-cung-tam-giac-mach-.htm", True)
        End If
        clear()
    End Sub
    Private Function clear()
        Me.txtFullname.Text = ""
        Me.txtEmail.Text = ""
        Me.txtContent.Text = ""
        Me.binhluan.Visible = False
    End Function
End Class
